home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mcbar / simple~2.fr_ / simple~2.fr (.txt)
Encoding:
Visual Basic Form  |  1998-01-31  |  16.3 KB  |  479 lines
  1. VERSION 5.00
  2. Object = "{CD8DBB13-94EE-11D1-921D-006097A8F11E}#6.0#0"; "mcBar1.ocx"
  3. Begin VB.Form frmSimpleProgressBar 
  4.    Caption         =   "Simple Progress Bar"
  5.    ClientHeight    =   6075
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8835
  9.    ScaleHeight     =   6075
  10.    ScaleWidth      =   8835
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "&Start"
  14.       Height          =   465
  15.       Index           =   6
  16.       Left            =   7740
  17.       TabIndex        =   14
  18.       Top             =   5220
  19.       Width           =   1005
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "&Start"
  23.       Height          =   465
  24.       Index           =   5
  25.       Left            =   7740
  26.       TabIndex        =   12
  27.       Top             =   4410
  28.       Width           =   1005
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "&Start"
  32.       Height          =   465
  33.       Index           =   4
  34.       Left            =   7740
  35.       TabIndex        =   10
  36.       Top             =   3600
  37.       Width           =   1005
  38.    End
  39.    Begin VB.CommandButton Command1 
  40.       Caption         =   "&Start"
  41.       Height          =   465
  42.       Index           =   3
  43.       Left            =   7740
  44.       TabIndex        =   8
  45.       Top             =   2790
  46.       Width           =   1005
  47.    End
  48.    Begin VB.CommandButton Command1 
  49.       Caption         =   "&Start"
  50.       Height          =   465
  51.       Index           =   2
  52.       Left            =   7740
  53.       TabIndex        =   6
  54.       Top             =   1980
  55.       Width           =   1005
  56.    End
  57.    Begin VB.CommandButton Command1 
  58.       Caption         =   "&Start"
  59.       Height          =   465
  60.       Index           =   1
  61.       Left            =   7740
  62.       TabIndex        =   3
  63.       Top             =   1170
  64.       Width           =   1005
  65.    End
  66.    Begin VB.CommandButton Command1 
  67.       Caption         =   "&Start"
  68.       Height          =   465
  69.       Index           =   0
  70.       Left            =   7740
  71.       TabIndex        =   1
  72.       Top             =   360
  73.       Width           =   1005
  74.    End
  75.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  76.       Height          =   465
  77.       Index           =   0
  78.       Left            =   90
  79.       TabIndex        =   0
  80.       Top             =   360
  81.       Width           =   7485
  82.       _ExtentX        =   13203
  83.       _ExtentY        =   820
  84.       Blocks          =   1
  85.       Block.BarLeft(1)=   0
  86.       Block.Text(1)   =   "!h%!"
  87.       Block.TextColor(1)=   16777215
  88.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   8.25
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Object.Height          =   465
  98.       Object.Width           =   7485
  99.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  100.          Name            =   "MS Sans Serif"
  101.          Size            =   8.25
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.    End
  109.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  110.       Height          =   465
  111.       Index           =   1
  112.       Left            =   90
  113.       TabIndex        =   4
  114.       Top             =   1170
  115.       Width           =   7485
  116.       _ExtentX        =   13203
  117.       _ExtentY        =   820
  118.       Blocks          =   1
  119.       Block.BarLeft(1)=   0
  120.       Block.BrushStyle(1)=   6
  121.       Block.Text(1)   =   "!h%!"
  122.       Block.TextColor(1)=   16777215
  123.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  124.          Name            =   "MS Sans Serif"
  125.          Size            =   8.25
  126.          Charset         =   0
  127.          Weight          =   400
  128.          Underline       =   0   'False
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       Object.Height          =   465
  133.       Object.Width           =   7485
  134.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  135.          Name            =   "MS Sans Serif"
  136.          Size            =   8.25
  137.          Charset         =   0
  138.          Weight          =   400
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.    End
  144.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  145.       Height          =   465
  146.       Index           =   2
  147.       Left            =   90
  148.       TabIndex        =   16
  149.       Top             =   1980
  150.       Width           =   7485
  151.       _ExtentX        =   13203
  152.       _ExtentY        =   820
  153.       Blocks          =   1
  154.       Block.BarLeft(1)=   0
  155.       Block.GradientStyle(1)=   1
  156.       Block.GradientColor(1)=   65535
  157.       Block.Text(1)   =   "!h%!"
  158.       Block.TextColor(1)=   16777215
  159.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  160.          Name            =   "MS Sans Serif"
  161.          Size            =   8.25
  162.          Charset         =   0
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Object.Height          =   465
  169.       Object.Width           =   7485
  170.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  171.          Name            =   "MS Sans Serif"
  172.          Size            =   8.25
  173.          Charset         =   0
  174.          Weight          =   400
  175.          Underline       =   0   'False
  176.          Italic          =   0   'False
  177.          Strikethrough   =   0   'False
  178.       EndProperty
  179.    End
  180.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  181.       Height          =   465
  182.       Index           =   3
  183.       Left            =   90
  184.       TabIndex        =   17
  185.       Top             =   2790
  186.       Width           =   7485
  187.       _ExtentX        =   13203
  188.       _ExtentY        =   820
  189.       Blocks          =   1
  190.       Block.BarLeft(1)=   0
  191.       Block.GradientStyle(1)=   1
  192.       Block.GradientGranularity(1)=   2
  193.       Block.GradientColor(1)=   65535
  194.       Block.Text(1)   =   "!h%!"
  195.       Block.TextColor(1)=   16777215
  196.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  197.          Name            =   "MS Sans Serif"
  198.          Size            =   8.25
  199.          Charset         =   0
  200.          Weight          =   400
  201.          Underline       =   0   'False
  202.          Italic          =   0   'False
  203.          Strikethrough   =   0   'False
  204.       EndProperty
  205.       Object.Height          =   465
  206.       Object.Width           =   7485
  207.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  208.          Name            =   "MS Sans Serif"
  209.          Size            =   8.25
  210.          Charset         =   0
  211.          Weight          =   400
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.    End
  217.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  218.       Height          =   465
  219.       Index           =   4
  220.       Left            =   90
  221.       TabIndex        =   18
  222.       Top             =   3600
  223.       Width           =   7485
  224.       _ExtentX        =   13203
  225.       _ExtentY        =   820
  226.       Blocks          =   1
  227.       Block.BarLeft(1)=   0
  228.       Block.GradientStyle(1)=   1
  229.       Block.GradientGranularity(1)=   2
  230.       Block.GradientColor(1)=   65535
  231.       Block.Text(1)   =   "!h%!"
  232.       Block.TextColor(1)=   16777215
  233.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  234.          Name            =   "MS Sans Serif"
  235.          Size            =   8.25
  236.          Charset         =   0
  237.          Weight          =   400
  238.          Underline       =   0   'False
  239.          Italic          =   0   'False
  240.          Strikethrough   =   0   'False
  241.       EndProperty
  242.       Block.RivetsStyle(1)=   1
  243.       Object.Height          =   465
  244.       Object.Width           =   7485
  245.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  246.          Name            =   "MS Sans Serif"
  247.          Size            =   8.25
  248.          Charset         =   0
  249.          Weight          =   400
  250.          Underline       =   0   'False
  251.          Italic          =   0   'False
  252.          Strikethrough   =   0   'False
  253.       EndProperty
  254.    End
  255.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  256.       Height          =   465
  257.       Index           =   5
  258.       Left            =   90
  259.       TabIndex        =   19
  260.       Top             =   4410
  261.       Width           =   7485
  262.       _ExtentX        =   13203
  263.       _ExtentY        =   820
  264.       Blocks          =   1
  265.       Block.BarLeft(1)=   0
  266.       Block.GradientStyle(1)=   1
  267.       Block.GradientGranularity(1)=   2
  268.       Block.GradientColor(1)=   65535
  269.       Block.Text(1)   =   "Process is !h%! complete"
  270.       Block.TextColor(1)=   16777215
  271.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  272.          Name            =   "MS Sans Serif"
  273.          Size            =   8.25
  274.          Charset         =   0
  275.          Weight          =   400
  276.          Underline       =   0   'False
  277.          Italic          =   0   'False
  278.          Strikethrough   =   0   'False
  279.       EndProperty
  280.       Block.RivetsStyle(1)=   1
  281.       Object.Height          =   465
  282.       Object.Width           =   7485
  283.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  284.          Name            =   "MS Sans Serif"
  285.          Size            =   8.25
  286.          Charset         =   0
  287.          Weight          =   400
  288.          Underline       =   0   'False
  289.          Italic          =   0   'False
  290.          Strikethrough   =   0   'False
  291.       EndProperty
  292.    End
  293.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  294.       Height          =   465
  295.       Index           =   6
  296.       Left            =   90
  297.       TabIndex        =   20
  298.       Top             =   5220
  299.       Width           =   7485
  300.       _ExtentX        =   13203
  301.       _ExtentY        =   820
  302.       Blocks          =   1
  303.       Block.BarLeft(1)=   0
  304.       Block.HPercentage(1)=   "1"
  305.       Block.VPercentage(1)=   "100"
  306.       Block.GradientStyle(1)=   1
  307.       Block.GradientGranularity(1)=   2
  308.       Block.GradientColor(1)=   65535
  309.       Block.Text(1)   =   "Process is !h%! complete"
  310.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  311.          Name            =   "Arial"
  312.          Size            =   8.25
  313.          Charset         =   0
  314.          Weight          =   400
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       Block.TextFont3D(1)=   3
  320.       Block.TextAutoAngle(1)=   1
  321.       Object.Height          =   465
  322.       Object.Width           =   7485
  323.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  324.          Name            =   "MS Sans Serif"
  325.          Size            =   8.25
  326.          Charset         =   0
  327.          Weight          =   400
  328.          Underline       =   0   'False
  329.          Italic          =   0   'False
  330.          Strikethrough   =   0   'False
  331.       EndProperty
  332.    End
  333.    Begin mcBar_by_The_MCR_Company.mcBar mcStatusBar 
  334.       Align           =   2  'Align Bottom
  335.       Height          =   285
  336.       Left            =   0
  337.       TabIndex        =   21
  338.       Top             =   5790
  339.       Width           =   8835
  340.       _ExtentX        =   15584
  341.       _ExtentY        =   503
  342.       Blocks          =   2
  343.       Block.BarLeft(1)=   0
  344.       Block.BarRight(1)=   90
  345.       Block.BorderStyle(1)=   2
  346.       Block.HPercentage(1)=   "90"
  347.       Block.VPercentage(1)=   "100"
  348.       Block.GradientStyle(1)=   6
  349.       Block.GradientColor(1)=   16777215
  350.       Block.Text(1)   =   "mcBar ActiveX control by The MCR Company"
  351.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  352.          Name            =   "MS Sans Serif"
  353.          Size            =   8.25
  354.          Charset         =   0
  355.          Weight          =   700
  356.          Underline       =   0   'False
  357.          Italic          =   0   'False
  358.          Strikethrough   =   0   'False
  359.       EndProperty
  360.       Block.TextFont3D(1)=   4
  361.       Block.BarLeft(2)=   90
  362.       Block.BarRight(2)=   100
  363.       Block.BorderStyle(2)=   2
  364.       Block.HPercentage(2)=   "10"
  365.       Block.VPercentage(2)=   "100"
  366.       Block.Text(2)   =   "!long time!"
  367.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  368.          Name            =   "Arial"
  369.          Size            =   8.25
  370.          Charset         =   0
  371.          Weight          =   400
  372.          Underline       =   0   'False
  373.          Italic          =   0   'False
  374.          Strikethrough   =   0   'False
  375.       EndProperty
  376.       Block.TextFont3D(2)=   1
  377.       Object.Height          =   285
  378.       Object.Width           =   8835
  379.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  380.          Name            =   "MS Sans Serif"
  381.          Size            =   8.25
  382.          Charset         =   0
  383.          Weight          =   700
  384.          Underline       =   0   'False
  385.          Italic          =   0   'False
  386.          Strikethrough   =   0   'False
  387.       EndProperty
  388.    End
  389.    Begin VB.Label Label1 
  390.       AutoSize        =   -1  'True
  391.       Caption         =   "Progress bar with color white gradient (medium), text 3D, auto angle:"
  392.       Height          =   195
  393.       Index           =   6
  394.       Left            =   90
  395.       TabIndex        =   15
  396.       Top             =   4950
  397.       Width           =   4800
  398.    End
  399.    Begin VB.Label Label1 
  400.       AutoSize        =   -1  'True
  401.       Caption         =   "Progress bar with color white gradient (medium), text, raised rivets:"
  402.       Height          =   195
  403.       Index           =   5
  404.       Left            =   90
  405.       TabIndex        =   13
  406.       Top             =   4140
  407.       Width           =   4635
  408.    End
  409.    Begin VB.Label Label1 
  410.       AutoSize        =   -1  'True
  411.       Caption         =   "Progress bar with color white gradient (medium), raised rivets:"
  412.       Height          =   195
  413.       Index           =   4
  414.       Left            =   90
  415.       TabIndex        =   11
  416.       Top             =   3330
  417.       Width           =   4290
  418.    End
  419.    Begin VB.Label Label1 
  420.       AutoSize        =   -1  'True
  421.       Caption         =   "Progress bar with color white gradient (medium):"
  422.       Height          =   195
  423.       Index           =   3
  424.       Left            =   90
  425.       TabIndex        =   9
  426.       Top             =   2520
  427.       Width           =   3360
  428.    End
  429.    Begin VB.Label Label1 
  430.       AutoSize        =   -1  'True
  431.       Caption         =   "Progress bar with color white gradient (maximum):"
  432.       Height          =   195
  433.       Index           =   2
  434.       Left            =   90
  435.       TabIndex        =   7
  436.       Top             =   1710
  437.       Width           =   3465
  438.    End
  439.    Begin VB.Label Label1 
  440.       AutoSize        =   -1  'True
  441.       Caption         =   "Progress bar with color and diagonal cross:"
  442.       Height          =   195
  443.       Index           =   1
  444.       Left            =   90
  445.       TabIndex        =   5
  446.       Top             =   900
  447.       Width           =   3030
  448.    End
  449.    Begin VB.Label Label1 
  450.       AutoSize        =   -1  'True
  451.       Caption         =   "Progress bar with only color:"
  452.       Height          =   195
  453.       Index           =   0
  454.       Left            =   90
  455.       TabIndex        =   2
  456.       Top             =   90
  457.       Width           =   1980
  458.    End
  459. Attribute VB_Name = "frmSimpleProgressBar"
  460. Attribute VB_GlobalNameSpace = False
  461. Attribute VB_Creatable = False
  462. Attribute VB_PredeclaredId = True
  463. Attribute VB_Exposed = False
  464. Option Explicit
  465. Private Sub RunProgressBar(ctl As Control)
  466.    Dim i       As Integer
  467.    ctl.BlockBarLeft(1) = 0
  468.    For i = 0 To 100
  469.       ctl.BlockBarRight(1) = i
  470.       DoEvents
  471.    Next i
  472. End Sub
  473. Private Sub Command1_Click(Index As Integer)
  474.    RunProgressBar mcBar1(Index)
  475. End Sub
  476. Private Sub Form_Load()
  477.    mcStatusBar.TimerTimeEnabled = True
  478. End Sub
  479.